#'
#' package setup
#'
#'
#'
#'
#'

#setup the welcome message
.onAttach = function(libname,pkgname){
  #packageStartupMessage("Welcome to my package")
}

#setup the default package options
.onLoad = function(libname,pkgname){
  op = options()
  op.scp = list(
    scp.parallel=FALSE,
    scp.mccores=4
  )
  toset <- !(names(op.scp) %in% names(op))
  if(any(toset)) options(op.scp[toset])
  
  invisible()
}